import Data.List

euler_029 = length $ nub $ [ a^b | a <- [2..100] , b <- [2..100] ]  